home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / version < prev    next >
Encoding:
Text File  |  1996-09-27  |  692 b   |  33 lines
  1. ;OCL{{{}}}
  2. ;OCL{{{  comments
  3. ; some macros to control svc
  4. ;OCL}}}
  5. @if-using not(ocl-file-version)
  6.   @use (ocl-file-version)
  7.   ;OCL{{{  check-out
  8.   ( deffun check-out
  9.      ( if in-prompt ( return-from-macro ) fi
  10.        delete-mode-view
  11.        local
  12.         ( force-bourne-shell )
  13.         ( set force-bourne-shell true
  14.           shell-command "co "  "-l "  "$ORIGAMIFILE
  15.         )
  16.      )
  17.   )
  18.   ;OCL}}}
  19.   ;OCL{{{  check-in
  20.   ( deffun check-in
  21.      ( if in-prompt ( return-from-macro ) fi
  22.        save-file
  23.        add-mode-view
  24.        local
  25.         ( force-bourne-shell )
  26.         ( set force-bourne-shell true
  27.           shell-command "ci "  "-u "  "$ORIGAMIFILE
  28.         )
  29.      )
  30.   )
  31.   ;OCL}}}
  32. @fi
  33.